home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_18_1987_Transactor_Publishing.d64 / change unit addr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  587b  |  16 lines
  1. 100 rem save"0:cua[160] (change)",8
  2. 110 rem ** jim butterfield - september 1981
  3. 120 rem ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250
  4. 130 print "old device number   8[157][157][157]";: input do
  5. 140 if do<8 or do>15 then 130
  6. 150 print "new device number   9[157][157][157]";: input dn
  7. 160 if dn<8 or dn>15 then 150
  8. 170 open 15,do,15: rem command channel
  9. 180 a$=chr$(do+32): b$=chr$(do+64): rem talk and listen current
  10. 190 read a: if a=0 then print "disk not recognized!";: goto 230
  11. 200 print#15,"m-r"chr$(a)chr$(0): get#15,x$: if x$<>a$ then 190
  12. 210 print#15,"m-r"chr$(a+1)chr$(0): get#15,x$: if x$<>b$ then 190
  13. 220 print#15,"m-w"chr$(a)chr$(0)chr$(2)chr$(dn+32)chr$(dn+64)
  14. 230 close15
  15. 240 data  12,  50, 119,   0
  16.